Oryginalny wykres TVP

Źródło: http://smarterpoland.pl/wp-content/uploads/2020/12/a3.png Wykres TVP

Wykres poprawiony

Dane <- c(0.375, 0.625)
Kol <- c("TAK", "NIE")

df <- data.frame(Dane, Kol)
ggplot(df, 
       mapping = aes(x = Kol, y = Dane))+
  geom_col() + 
  labs(title = "Czy uważasz, że państwa UE mogą być różnie traktowane?",
       x = " ", y = "Procent ankietowanych") +
  scale_y_continuous(labels = scales::percent)

Dlaczego poprawiony wykres jest lepszy?